library(httr)
library(jsonlite)
library(countrycode)
library(janitor)
library(readxl)
library(sf)
sf_use_s2(FALSE)
library(tmap)
tmap_mode('view')
library(tidyverse)
options(knitr.kable.NA = '')Data cleaning and auditing
Data cleaning
Read data
raw_metadata <- read_xlsx('data/draft/metada_work_version.xlsx', guess_max = 4000) Check columns
raw_metadata <- raw_metadata %>%
janitor::clean_names() %>%
janitor::remove_empty(c('rows', 'cols')) Check source fields
The fields are: name_orig, format, and language.
- Make sure there are no
\r,\n, other weird characters or typos. - Capitalise and clean
language.
# name
raw_metadata %>%
filter(grepl('http', name_orig)) %>%
group_by(name_orig) %>% count
raw_metadata %>%
filter(is.na(name_orig)) %>%
distinct(url_clean)
raw_metadata %>%
mutate(name_orig = str_squish(name_orig)) %>%
mutate(name_orig = str_remove_all(name_orig, "\\\\")) %>%
mutate(name_orig = str_remove_all(name_orig, "\"")) %>%
group_by(name_orig) %>%
summarise(n_countries = n_distinct(country)) %>%
select(name_orig, n_countries) %>%
print(n=10)
# format
raw_metadata %>%
mutate(format = ifelse(format == 'NA', NA, str_squish(format))) %>%
distinct(format)
# language
raw_metadata %>%
mutate(language = ifelse(language == 'NA', NA, str_squish(language))) %>%
mutate(language = str_replace(language, "/|\\|", ' | ')) %>%
distinct(language) %>%
print(n=50)DOUBTS
The name_orig is: https://www.odonat-grandest.fr/listes-rouges-grand-est-etat-avancement/.
The id values are: [1] 446 447 448 449 450 451 452 453 454 455 456 457.
FIX
# French: Liste rouge des Amphibiens du Grand Est
# English: Red list of Mammals of Grand Est
raw_metadata %>%
mutate(name_orig = ifelse(grepl('htt', name_orig) &
state_province == 'Grand Est',
str_glue('Red list of {group} of Grand Est'), name_orig)) %>%
mutate(name_orig = case_when(grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Birds' ~
'Liste rouge des Oiseaux du Grand Est',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Mammals' ~
'Liste rouge des XXX du Grand Est',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Orthoptera' ~
'',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Fishes' ~
'',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Butterflies' ~
'',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Night butterflies' ~
'',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Ladybugs' ~
'',
grepl('htt', name_orig) &
state_province == 'Grand Est' & group == 'Branchiopoda' ~
'',
.default = name_orig))
filter(state_province == 'Grand Est') %>% select(group, name_orig)
raw_metadata %>%
mutate(language = ifelse(language == 'NA', NA, str_squish(language))) %>%
mutate(language = str_replace(language, "/|\\|", ' | ')) %>%
distinct(language)
raw_metadata %>%
mutate(format = ifelse(format == '?', NA, format)) %>%
distinct(format)
raw_metadata %>%
mutate(name_orig = str_squish(name_orig)) %>%
mutate(name_orig = str_remove_all(name_orig, "\\\\")) %>%
mutate(name_orig = str_remove_all(name_orig, "\"")) Check Location fields
The fields are: continent, country, state_province, gadm_level_1, gadm_level_2, region_custom, region_detail, and iso_2.
- Make sure there are no typos, thus duplicates.
- Capitalise
continent,country,state_provincenames.
- Check ISO codes.
- Check GADM levels.
- Clean
region_customandregion_detail.
# check continent
raw_metadata %>%
mutate(continent = str_squish(str_replace_all(str_squish(continent), '\\|', ' | '))) %>%
mutate(continent = str_replace_all(continent, '_', ' ')) %>%
mutate(continent = str_to_title(continent)) %>%
distinct(continent)
# check country
raw_metadata %>%
mutate(country = ifelse(country == 'NA', NA, str_squish(country))) %>%
mutate(country = str_replace_all(country, '_', ' ')) %>%
mutate(country = ifelse(country == 'USSR', NA, str_to_title(country))) %>%
mutate(country = str_replace_all(country, 'And ', 'and ')) %>%
mutate(country = str_replace_all(country, 'Of', 'of')) %>%
mutate(country = str_replace_all(country, 'The', 'the')) %>%
distinct(country)
# check state_province
raw_metadata %>%
mutate(state_province = ifelse(state_province == 'NA', NA, str_squish(state_province))) %>%
mutate(state_province = str_to_title(state_province)) %>%
mutate(state_province = str_replace_all(state_province, 'And ', 'and ')) %>%
mutate(state_province = str_replace_all(state_province, 'Of', 'of')) %>%
mutate(state_province = str_replace_all(state_province, 'The', 'the')) %>%
filter(!is.na(state_province)) %>%
filter(state_province != gadm_level_1) %>%
distinct(country, state_province, gadm_level_1, iso_2, iso_3) %>%
print(n=100)
# check gadm_level_1 and gadm_level_2
raw_metadata %>%
mutate(gadm_level_1 = ifelse(gadm_level_1 == 'NA', NA, str_squish(gadm_level_1))) %>%
mutate(gadm_level_1 = str_to_title(gadm_level_1)) %>%
mutate(gadm_level_1 = str_replace_all(gadm_level_1, 'And ', 'and ')) %>%
mutate(gadm_level_1 = str_replace_all(gadm_level_1, 'Of', 'of')) %>%
mutate(gadm_level_1 = str_replace_all(gadm_level_1, 'The', 'the')) %>%
filter(!is.na(gadm_level_1)) %>% distinct(gadm_level_1) %>%
arrange(gadm_level_1) %>% print(n=100)
raw_metadata %>%
mutate(gadm_level_2 = ifelse(gadm_level_2 == 'NA', NA, str_squish(gadm_level_2))) %>%
mutate(gadm_level_2 = str_to_title(gadm_level_2)) %>%
filter(!is.na(gadm_level_2)) %>% select(gadm_level_2)
# check region_custom and region_detal
raw_metadata %>%
mutate(region_custom = ifelse(region_custom == 'NA', NA, str_squish(region_custom))) %>%
mutate(region_detail = ifelse(region_detail == 'NA', NA, str_squish(region_detail))) %>%
mutate(region_detail = str_squish(str_replace_all(str_squish(region_detail), '\\|', ' | '))) %>%
filter(!is.na(region_custom)) %>%
distinct(region_custom, region_detail, iso_2, iso_3) %>%
print(n=100)
# check iso_2 and iso_3
raw_metadata %>%
janitor::clean_names() %>%
janitor::remove_empty(c('rows', 'cols')) %>%
mutate(iso_2 = ifelse(iso_2 == 'NA' & country != 'Namibia', NA, str_squish(iso_2))) %>%
mutate(iso_2 = str_squish(str_replace_all(str_squish(iso_2), '\\|', ' | '))) %>%
mutate(iso_3 = ifelse(iso_3 == 'NA', NA, str_squish(iso_3))) %>%
mutate(iso_3 = str_squish(str_replace_all(str_squish(iso_3), '\\|', ' | '))) %>%
select(country, iso_2, iso_3, region_custom, region_detail) %>%
filter(is.na(iso_2)) #%>% distinct()DOUBTS
Check Taxon fields
The fields are: kingdom, phylum, subphylum, class, order, and group.
- Check duplicates in all fields.
- Rename
grouptotaxa.
I searched names using the GBIF backbone, using my own custom function nameMatcherGBIF().
# gbif name parser
nameMatcherGBIF <- function(sp_name_list) {
# api <- 'http://api.gbif.org/v1/parser/name'
api <- 'http://api.gbif.org/v1/species/match'
name_parsed <- tibble(sp_name = character(),
scientificName = character(),
kingdom = character(),
phylum = character(),
class = character(),
order = character(),
family = character(),
genus = character(),
specificEpithet = character(),
species = character(),
status = character(),
rank = character())
for(sp_name in sp_name_list){
# cat(sp_name, '\n')
call_url <- str_glue('{api}?name={sp_name}&strict=true&verbose=false')
get_json_call <- GET(url = URLencode(call_url)) %>%
content(as = "text") %>% fromJSON(flatten = TRUE)
if(get_json_call$matchType == 'NONE') {
name_parsed_i <- tibble(sp_name = sp_name,
scientificName = NA,
kingdom = NA,
phylum = NA,
class = NA,
order = NA,
family = NA,
genus = NA,
specificEpithet = NA,
species = NA,
status = NA,
rank = NA)
name_parsed <- rbind(name_parsed, name_parsed_i)
} else{
name_parsed_i <- tibble(sp_name = sp_name,
scientificName = ifelse(exists('scientificName',get_json_call), get_json_call$scientificName, NA),
kingdom = ifelse(exists('kingdom',get_json_call), get_json_call$kingdom, NA),
phylum = ifelse(exists('phylum',get_json_call), get_json_call$phylum, NA),
class = ifelse(exists('class',get_json_call), get_json_call$class, NA),
order = ifelse(exists('order',get_json_call), get_json_call$order, NA),
family = ifelse(exists('family',get_json_call), get_json_call$family, NA),
genus = ifelse(exists('genus',get_json_call), get_json_call$genus, NA),
specificEpithet = ifelse(exists('specificEpithet',get_json_call), get_json_call$specificEpithet, NA),
species = ifelse(exists('species',get_json_call), get_json_call$species, NA),
status = ifelse(exists('status',get_json_call), get_json_call$status, NA),
rank = ifelse(exists('rank',get_json_call), get_json_call$rank, NA))
name_parsed <- rbind(name_parsed, name_parsed_i)
}
}
return(name_parsed)
}
sp_list <- raw_metadata %>%
distinct(kingdom, phylum, subphylum, class, order, group) %>%
mutate(group = str_trim(group)) %>%
mutate(group = str_to_title(group)) %>%
mutate(group = str_replace_all(group, 'And ', 'and ')) %>%
mutate(group = str_replace_all(group, 'Of', 'of')) %>%
mutate(group = str_replace_all(group, 'The', 'the')) %>%
pull(group)
sp_list_matched <- nameMatcherGBIF(sp_list) %>% suppressMessages()
sp_list_matched <- sp_list_matched %>%
mutate(scientificName = case_when(grepl('flora', sp_name, ignore.case=T) ~ 'Plantae',
grepl('fauna', sp_name, ignore.case=T) ~ 'Animalia',
grepl('tunicata', sp_name, ignore.case=T) ~ NA,
.default = scientificName)) %>%
mutate(kingdom = case_when(grepl('flora', sp_name, ignore.case=T) ~ 'Plantae',
grepl('fauna', sp_name, ignore.case=T) ~ 'Animalia',
grepl('tunicata', sp_name, ignore.case=T) ~ NA,
.default = kingdom)) %>%
mutate(phylum = ifelse(phylum == 'chordata', 'Chordata', phylum))
sp_list_unmatched <- sp_list_matched %>%
filter(is.na(scientificName)) %>% pull(sp_name)
sp_list_matched %>% filter(!is.na(kingdom)) %>% nrow() # matched[1] 205
length(sp_list_unmatched) # not matched[1] 358
When the taxon name (i.e., group) was not found I kept the previous taxonomic fields’ values.
merged_list <- left_join(raw_metadata %>%
mutate(group = str_trim(group)) %>%
distinct(group) %>%
arrange(group),
sp_list_matched %>%
filter(!is.na(scientificName)) %>%
rename(group=sp_name) %>% distinct()) %>%
arrange(group)
raw_metadata_taxon_list <- raw_metadata %>%
mutate(group = str_trim(group)) %>%
distinct(group, .keep_all = T) %>%
select(kingdom, phylum, subphylum, class, order, group) %>%
arrange(group)
left_join(raw_metadata %>% mutate(group = str_trim(group)) %>%
select(-c(kingdom,phylum,subphylum,class,order)),
bind_rows(merged_list %>%
filter(!is.na(scientificName)),
merged_list %>%
filter(is.na(scientificName)) %>%
select(group) %>%
left_join(. , raw_metadata_taxon_list))) %>%
mutate(group = str_trim(group)) %>%
mutate(group = str_to_title(group)) %>%
mutate(group = str_replace_all(group, 'And ', 'and ')) %>%
mutate(group = str_replace_all(group, 'Of', 'of')) %>%
mutate(group = str_replace_all(group, 'The', 'the')) %>%
mutate(group = str_replace_all(group, 'Et Al.', 'et al.')) %>%
distinct(group, kingdom, phylum, class, order, family, rank) %>%
arrange(kingdom, phylum, class, order) %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position'))| group | kingdom | phylum | class | order | family | rank |
|---|---|---|---|---|---|---|
| Earthworms | Animalia | Anelida | Clitellata | Opisthopora | ||
| Oligochaeta | Animalia | Anelida | Clitellata | |||
| Onychophora | Animalia | Animalia | ||||
| Branchiobdellida | Animalia | Annelida | Clitellata | Branchiobdellida | ORDER | |
| Hirudinea | Animalia | Annelida | Clitellata | |||
| Worms | Animalia | Annelida | Clitellata | |||
| Leech | Animalia | Annelida | Clitellata | |||
| Leeches | Animalia | Annelida | Clitellata | |||
| Echiurida | Animalia | Annelida | Echiura | Echiuroidea | ||
| Sipunculids | Animalia | Annelida | Sipuncula | |||
| Amblypygi | Animalia | Arthropoda | Arachnida | Amblypygi | ORDER | |
| Spiders | Animalia | Arthropoda | Arachnida | Araneae | ||
| Uropodina | Animalia | Arthropoda | Arachnida | Mesostigmata | ||
| Opiliones | Animalia | Arthropoda | Arachnida | Opiliones | ORDER | |
| Opilioness | Animalia | Arthropoda | Arachnida | Opiliones | ||
| Pseudoscorpiones | Animalia | Arthropoda | Arachnida | Pseudoscorpiones | ORDER | |
| False Scorpions | Animalia | Arthropoda | Arachnida | Pseudoscorpions | ||
| Scorpions | Animalia | Arthropoda | Arachnida | Scorpionida | ||
| Arachnida | Animalia | Arthropoda | Arachnida | CLASS | ||
| Anostraca | Animalia | Arthropoda | Branchiopoda | Anostraca | ORDER | |
| Branchiopoda | Animalia | Arthropoda | Branchiopoda | CLASS | ||
| Centipedes | Animalia | Arthropoda | Chilopoda | |||
| Chilopoda | Animalia | Arthropoda | Chilopoda | CLASS | ||
| Collembola | Animalia | Arthropoda | Collembola | CLASS | ||
| Entomostraca | Animalia | Arthropoda | Copepoda | |||
| Copepoda | Animalia | Arthropoda | Copepoda | CLASS | ||
| Millipedes | Animalia | Arthropoda | Diplopoda | |||
| Diplopoda | Animalia | Arthropoda | Diplopoda | CLASS | ||
| Archaeognatha | Animalia | Arthropoda | Insecta | Archaeognatha | ORDER | |
| Blattodea | Animalia | Arthropoda | Insecta | Blattodea | ORDER | |
| Wood Cockroaches | Animalia | Arthropoda | Insecta | Blattodea | ||
| Cockroaches | Animalia | Arthropoda | Insecta | Blattodea | ||
| Hydraenidae | Animalia | Arthropoda | Insecta | Coleoptera | Hydraenidae | FAMILY |
| Coleoptera | Animalia | Arthropoda | Insecta | Coleoptera | ORDER | |
| Carabidae | Animalia | Arthropoda | Insecta | Coleoptera | Carabidae | FAMILY |
| Saproxylic Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Longhorn and Scarab Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Longhorn Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Scarabaeidae | Animalia | Arthropoda | Insecta | Coleoptera | Scarabaeidae | FAMILY |
| Ladybugs | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Water Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Tenebrionidae | Animalia | Arthropoda | Insecta | Coleoptera | Tenebrionidae | FAMILY |
| Soldier Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Leaf Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Histeridae | Animalia | Arthropoda | Insecta | Coleoptera | Histeridae | FAMILY |
| Sphaeritidae | Animalia | Arthropoda | Insecta | Coleoptera | Sphaeritidae | FAMILY |
| Derodontidoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Bostrichoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Staphylinidae | Animalia | Arthropoda | Insecta | Coleoptera | Staphylinidae | FAMILY |
| Lucanidae | Animalia | Arthropoda | Insecta | Coleoptera | Lucanidae | FAMILY |
| Geotrupidae | Animalia | Arthropoda | Insecta | Coleoptera | Geotrupidae | FAMILY |
| Trogidae | Animalia | Arthropoda | Insecta | Coleoptera | Trogidae | FAMILY |
| Silphidae | Animalia | Arthropoda | Insecta | Coleoptera | Silphidae | FAMILY |
| Chrysomelidae | Animalia | Arthropoda | Insecta | Coleoptera | Chrysomelidae | FAMILY |
| Bark Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Ground Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Curculionidae | Animalia | Arthropoda | Insecta | Coleoptera | Curculionidae | FAMILY |
| Powderpost Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Bostrichidae | Animalia | Arthropoda | Insecta | Coleoptera | Bostrichidae | FAMILY |
| Anobiidae | Animalia | Arthropoda | Insecta | Coleoptera | Anobiidae | FAMILY |
| Ptinidae | Animalia | Arthropoda | Insecta | Coleoptera | Ptinidae | FAMILY |
| Deadwood Beetle | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Buprestidae | Animalia | Arthropoda | Insecta | Coleoptera | Buprestidae | FAMILY |
| Snout Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Staphylinoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Cucujoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Lamellicornia | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Seed Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Weevils | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Anthribidae | Animalia | Arthropoda | Insecta | Coleoptera | Anthribidae | FAMILY |
| Platypodidae | Animalia | Arthropoda | Insecta | Coleoptera | Curculionidae | FAMILY |
| Ground Beetle | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Tiger Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Megalopodidae | Animalia | Arthropoda | Insecta | Coleoptera | Megalopodidae | FAMILY |
| Scarabaeoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Cerambycidae | Animalia | Arthropoda | Insecta | Coleoptera | Cerambycidae | FAMILY |
| Curculionoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Cleroidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Elateridae | Animalia | Arthropoda | Insecta | Coleoptera | Elateridae | FAMILY |
| Lymexyloidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Cicindelidae | Animalia | Arthropoda | Insecta | Coleoptera | Carabidae | FAMILY |
| Lucanoidea | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Hydrophilidae | Animalia | Arthropoda | Insecta | Coleoptera | Hydrophilidae | FAMILY |
| Platypsyllinae | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Cholevinae | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Malachiidae | Animalia | Arthropoda | Insecta | Coleoptera | Malachiidae | FAMILY |
| Melyridae | Animalia | Arthropoda | Insecta | Coleoptera | Melyridae | FAMILY |
| Phloeophilidae | Animalia | Arthropoda | Insecta | Coleoptera | Phloiophilidae | FAMILY |
| Cleridae | Animalia | Arthropoda | Insecta | Coleoptera | Cleridae | FAMILY |
| Cerophytidae | Animalia | Arthropoda | Insecta | Coleoptera | Cerophytidae | FAMILY |
| Eucnemidae | Animalia | Arthropoda | Insecta | Coleoptera | Eucnemidae | FAMILY |
| Cryptophagidae | Animalia | Arthropoda | Insecta | Coleoptera | Cryptophagidae | FAMILY |
| Latridiidae | Animalia | Arthropoda | Insecta | Coleoptera | Latridiidae | FAMILY |
| Mycetophagidae | Animalia | Arthropoda | Insecta | Coleoptera | Mycetophagidae | FAMILY |
| Zopheridae | Animalia | Arthropoda | Insecta | Coleoptera | Zopheridae | FAMILY |
| Monotomidae | Animalia | Arthropoda | Insecta | Coleoptera | Monotomidae | FAMILY |
| Phalacridae | Animalia | Arthropoda | Insecta | Coleoptera | Phalacridae | FAMILY |
| Pyrochroide | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Meloidae | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Orsodacnidae | Animalia | Arthropoda | Insecta | Coleoptera | Orsodacnidae | FAMILY |
| Donaciinae | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Leptinidae | Animalia | Arthropoda | Insecta | Coleoptera | Leiodidae | FAMILY |
| Lissomidae | Animalia | Arthropoda | Insecta | Coleoptera | Elateridae | FAMILY |
| Derodontoidae | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Leiodidae | Animalia | Arthropoda | Insecta | Coleoptera | Leiodidae | FAMILY |
| Oedemeridae | Animalia | Arthropoda | Insecta | Coleoptera | Oedemeridae | FAMILY |
| Melandryidae | Animalia | Arthropoda | Insecta | Coleoptera | Melandryidae | FAMILY |
| Dung Beetles | Animalia | Arthropoda | Insecta | Coleoptera | ||
| Earwigs | Animalia | Arthropoda | Insecta | Dermaptera | ||
| Heteroptera | Animalia | Arthropoda | Insecta | Diptera | Sphaeroceridae | GENUS |
| Acalyptratae | Animalia | Arthropoda | Insecta | Diptera | ||
| Calypterate | Animalia | Arthropoda | Insecta | Diptera | ||
| Larger Brachycera | Animalia | Arthropoda | Insecta | Diptera | ||
| Dolichopodid | Animalia | Arthropoda | Insecta | Diptera | ||
| Lonchopteridae | Animalia | Arthropoda | Insecta | Diptera | Lonchopteridae | FAMILY |
| Platypezidae | Animalia | Arthropoda | Insecta | Diptera | Platypezidae | FAMILY |
| Opetiidae | Animalia | Arthropoda | Insecta | Diptera | Opetiidae | FAMILY |
| Hoverflies | Animalia | Arthropoda | Insecta | Diptera | ||
| Chaoboridae | Animalia | Arthropoda | Insecta | Diptera | Chaoboridae | FAMILY |
| Thaumaleidae | Animalia | Arthropoda | Insecta | Diptera | Thaumaleidae | FAMILY |
| Ceratopogonidae | Animalia | Arthropoda | Insecta | Diptera | Ceratopogonidae | FAMILY |
| Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Asilidae | Animalia | Arthropoda | Insecta | Diptera | Asilidae | FAMILY |
| Psychodidae | Animalia | Arthropoda | Insecta | Diptera | Psychodidae | FAMILY |
| Dixidae | Animalia | Arthropoda | Insecta | Diptera | Dixidae | FAMILY |
| Soldier Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Horse-Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Bee Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Empididae | Animalia | Arthropoda | Insecta | Diptera | Empididae | FAMILY |
| Conopidae | Animalia | Arthropoda | Insecta | Diptera | Conopidae | FAMILY |
| Chironomidae | Animalia | Arthropoda | Insecta | Diptera | Chironomidae | FAMILY |
| Dolichopodidae | Animalia | Arthropoda | Insecta | Diptera | Dolichopodidae | FAMILY |
| Black Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Long-Legged Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Micropezidae | Animalia | Arthropoda | Insecta | Diptera | Micropezidae | FAMILY |
| Grass Flies | Animalia | Arthropoda | Insecta | Diptera | ||
| Tachinidae | Animalia | Arthropoda | Insecta | Diptera | Tachinidae | FAMILY |
| Aquatic Empididae | Animalia | Arthropoda | Insecta | Diptera | ||
| Pediciidae | Animalia | Arthropoda | Insecta | Diptera | Pediciidae | FAMILY |
| Limoniidae | Animalia | Arthropoda | Insecta | Diptera | Limoniidae | FAMILY |
| Diptera | Animalia | Arthropoda | Insecta | Diptera | ||
| Parasitic Diptera | Animalia | Arthropoda | Insecta | Diptera | ||
| Mayflies | Animalia | Arthropoda | Insecta | Ephemeroptera | ||
| Auchenorrhyncha | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Cicadas | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Shieldbugs | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Clavicornia | Animalia | Arthropoda | Insecta | Hemiptera | Aradidae | GENUS |
| Big-Eyed Bugs | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Nepomorpha | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Fulgoromorpha | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Cicadomorpha | Animalia | Arthropoda | Insecta | Hemiptera | Palaeontinidae | GENUS |
| Scale Insect | Animalia | Arthropoda | Insecta | Hemiptera | ||
| Hemiptera | Animalia | Arthropoda | Insecta | Hemiptera | ORDER | |
| Ants | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Bombus Spp. | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Hymenoptera | Animalia | Arthropoda | Insecta | Hymenoptera | ORDER | |
| Bees | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Diversicornia | Animalia | Arthropoda | Insecta | Hymenoptera | Encyrtidae | GENUS |
| Sawflies | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Spheciformes | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Pompilidae | Animalia | Arthropoda | Insecta | Hymenoptera | Pompilidae | FAMILY |
| Chrysididae | Animalia | Arthropoda | Insecta | Hymenoptera | Chrysididae | FAMILY |
| Scolioidea | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Cuckoo Wasp | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Wasps | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Sphecidae | Animalia | Arthropoda | Insecta | Hymenoptera | Sphecidae | FAMILY |
| Wild Bees | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Scoliidae | Animalia | Arthropoda | Insecta | Hymenoptera | Scoliidae | FAMILY |
| Crabronidae et al. | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Chrysididae et al. | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Symphyta | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Stinging Wasps | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Mutillidae | Animalia | Arthropoda | Insecta | Hymenoptera | Mutillidae | FAMILY |
| Sapygidae | Animalia | Arthropoda | Insecta | Hymenoptera | Sapygidae | FAMILY |
| Tiphiidae | Animalia | Arthropoda | Insecta | Hymenoptera | Tiphiidae | FAMILY |
| Cimbicidae | Animalia | Arthropoda | Insecta | Hymenoptera | Cimbicidae | FAMILY |
| Siricidae | Animalia | Arthropoda | Insecta | Hymenoptera | Siricidae | FAMILY |
| Xiphydriidae | Animalia | Arthropoda | Insecta | Hymenoptera | Xiphydriidae | FAMILY |
| Ampulicidae | Animalia | Arthropoda | Insecta | Hymenoptera | Ampulicidae | FAMILY |
| Crabronidae | Animalia | Arthropoda | Insecta | Hymenoptera | Crabronidae | FAMILY |
| Apoidea | Animalia | Arthropoda | Insecta | Hymenoptera | ||
| Lepidoptera | Animalia | Arthropoda | Insecta | Lepidoptera | ORDER | |
| Moths | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Butterflies | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Papilionoidea | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Hesperioidea | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Noctuidae | Animalia | Arthropoda | Insecta | Lepidoptera | Noctuidae | FAMILY |
| Night Butterflies | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Owlet Moths | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Lymantriinae | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Short-Cloaked Moth | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Geometer Moths | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Bombyces | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Sphinges S.l. | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Pyralidae | Animalia | Arthropoda | Insecta | Lepidoptera | Pyralidae | FAMILY |
| Sphinges | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Geometridae | Animalia | Arthropoda | Insecta | Lepidoptera | Geometridae | FAMILY |
| Makrolepidoptera | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Macrolepidoptera | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Microlepidoptera | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Zygaenidae | Animalia | Arthropoda | Insecta | Lepidoptera | Zygaenidae | FAMILY |
| Sphingidae | Animalia | Arthropoda | Insecta | Lepidoptera | Sphingidae | FAMILY |
| Sesiidae | Animalia | Arthropoda | Insecta | Lepidoptera | Sesiidae | FAMILY |
| Psychidae | Animalia | Arthropoda | Insecta | Lepidoptera | Psychidae | FAMILY |
| Pterophoridae | Animalia | Arthropoda | Insecta | Lepidoptera | Pterophoridae | FAMILY |
| Alucitidae | Animalia | Arthropoda | Insecta | Lepidoptera | Alucitidae | FAMILY |
| Crambidae | Animalia | Arthropoda | Insecta | Lepidoptera | Crambidae | FAMILY |
| Torticidae | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Choreutidae | Animalia | Arthropoda | Insecta | Lepidoptera | Choreutidae | FAMILY |
| Hawk Moths | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Bombycidae | Animalia | Arthropoda | Insecta | Lepidoptera | Bombycidae | FAMILY |
| Pantheidae | Animalia | Arthropoda | Insecta | Lepidoptera | Noctuidae | FAMILY |
| Nolidae | Animalia | Arthropoda | Insecta | Lepidoptera | Nolidae | FAMILY |
| Sessidae | Animalia | Arthropoda | Insecta | Lepidoptera | ||
| Erebidae | Animalia | Arthropoda | Insecta | Lepidoptera | Erebidae | FAMILY |
| Mantodea | Animalia | Arthropoda | Insecta | Mantodea | ORDER | |
| Mecoptera | Animalia | Arthropoda | Insecta | Mecoptera | ORDER | |
| Scorpionflies | Animalia | Arthropoda | Insecta | Mecoptera | ||
| Megaloptera | Animalia | Arthropoda | Insecta | Megaloptera | ||
| Neuroptera | Animalia | Arthropoda | Insecta | Neuroptera | ORDER | |
| Owlflies | Animalia | Arthropoda | Insecta | Neuroptera | ||
| Net-Winged Insects | Animalia | Arthropoda | Insecta | Neuroptera | ||
| Odonata | Animalia | Arthropoda | Insecta | Odonata | ORDER | |
| Orthoptera | Animalia | Arthropoda | Insecta | Orthoptera | ORDER | |
| Grasshoppers | Animalia | Arthropoda | Insecta | Orthoptera | ||
| Ensifera | Animalia | Arthropoda | Insecta | Orthoptera | ||
| Caelifera | Animalia | Arthropoda | Insecta | Orthoptera | ||
| Crickets | Animalia | Arthropoda | Insecta | Orthoptera | ||
| Katydids | Animalia | Arthropoda | Insecta | Orthoptera | ||
| Stick Insects | Animalia | Arthropoda | Insecta | Phasmatodea | ||
| Stoneflies | Animalia | Arthropoda | Insecta | Plecoptera | ||
| Snakeflies | Animalia | Arthropoda | Insecta | Raphidioptera | ||
| Thrips | Animalia | Arthropoda | Insecta | Thysanoptera | Thripidae | GENUS |
| Trichoptera | Animalia | Arthropoda | Insecta | Trichoptera | ORDER | |
| Caddisflies | Animalia | Arthropoda | Insecta | Trichoptera | ||
| Plecoptera | Animalia | Arthropoda | Insecta | CLASS | ||
| Insects | Animalia | Arthropoda | Insecta | |||
| Aquatic and Semi-Aquatic Bugs | Animalia | Arthropoda | Insecta | |||
| Insecta | Animalia | Arthropoda | Insecta | CLASS | ||
| Water Bugs | Animalia | Arthropoda | Insecta | |||
| Woodlice | Animalia | Arthropoda | Isopoda | |||
| Amphipoda | Animalia | Arthropoda | Malacostraca | Amphipoda | ORDER | |
| Niphargidae | Animalia | Arthropoda | Malacostraca | Amphipoda | Niphargidae | FAMILY |
| Cumacea | Animalia | Arthropoda | Malacostraca | Cumacea | ORDER | |
| Decapoda | Animalia | Arthropoda | Malacostraca | Decapoda | ORDER | |
| Crayfishes | Animalia | Arthropoda | Malacostraca | Decapoda | ||
| Astacoidea | Animalia | Arthropoda | Malacostraca | Decapoda | ||
| Freshwater Decapod Crustaceans | Animalia | Arthropoda | Malacostraca | Decapoda | ||
| Marine Decapod Crustaceans | Animalia | Arthropoda | Malacostraca | Decapoda | ||
| Marine Isopoda | Animalia | Arthropoda | Malacostraca | Isopoda | ||
| Malacostraca | Animalia | Arthropoda | Malacostraca | CLASS | ||
| Mysidacea | Animalia | Arthropoda | Malacostraca | CLASS | ||
| Barnacles | Animalia | Arthropoda | Thecostraca | |||
| Freshwater Crabs | Animalia | Arthropoda | Decapoda | |||
| Horseshoe Crabs | Animalia | Arthropoda | Xiphosura | |||
| Crustaceans | Animalia | Arthropoda | ||||
| Arthropods | Animalia | Arthropoda | ||||
| Freshwater Crustaceans | Animalia | Arthropoda | ||||
| Crayfish | Animalia | Arthropoda | ||||
| Sea Spiders | Animalia | Arthropoda | ||||
| Marine Crustaceans | Animalia | Arthropoda | ||||
| Miscellaneous Arthropods | Animalia | Arthropoda | ||||
| Myriapods | Animalia | Arthropoda | ||||
| Brachiopods | Animalia | Brachiopoda | ||||
| Marine Bryozoans | Animalia | Bryoza | ||||
| Bryozoa | Animalia | Bryozoa | PHYLUM | |||
| Bony Fishes | Animalia | Chordata | Actinopterygii | |||
| Frogs | Animalia | Chordata | Amphibia | Anura | ||
| Amphibians | Animalia | Chordata | Amphibia | |||
| Sea Squirts | Animalia | Chordata | Ascidiacea | |||
| Anatidae | Animalia | Chordata | Aves | Anseriformes | Anatidae | FAMILY |
| Galliformes | Animalia | Chordata | Aves | Galliformes | ORDER | |
| Birds | Animalia | Chordata | Aves | |||
| Breeding Birds | Animalia | Chordata | Aves | |||
| Wintering Birds | Animalia | Chordata | Aves | |||
| Transient Birds | Animalia | Chordata | Aves | |||
| Birds Terre Adelie | Animalia | Chordata | Aves | |||
| Birds Terres Australes | Animalia | Chordata | Aves | |||
| Birds Scattered Islands | Animalia | Chordata | Aves | |||
| Migratory Birds | Animalia | Chordata | Aves | |||
| Metropolitan Birds | Animalia | Chordata | Aves | |||
| Endemic Brids | Animalia | Chordata | Aves | |||
| Breeding Birds of Prey | Animalia | Chordata | Aves | |||
| Endangered Birds | Animalia | Chordata | Aves | |||
| Birds Ecuador | Animalia | Chordata | Aves | |||
| Birds Galapagos | Animalia | Chordata | Aves | |||
| Birds of Prey | Animalia | Chordata | Aves | |||
| Breeding Raptors | Animalia | Chordata | Aves | |||
| Freshwater Lamprey | Animalia | Chordata | Cephalaspidomorphi | |||
| Sharks | Animalia | Chordata | Chondrichthyes | |||
| Chondrichthyes | Animalia | Chordata | Chondrichthyes | |||
| Lamprey | Animalia | Chordata | Hyperoartia | |||
| Cetaceans | Animalia | Chordata | Mammalia | Artiodactyla | ||
| Bats | Animalia | Chordata | Mammalia | Chiroptera | ||
| Perissodactyla | Animalia | Chordata | Mammalia | Perissodactyla | ORDER | |
| Primates | Animalia | Chordata | Mammalia | Primates | ORDER | |
| Lemurs | Animalia | Chordata | Mammalia | Primates | ||
| Rodents | Animalia | Chordata | Mammalia | Rodentia | ||
| Mammals | Animalia | Chordata | Mammalia | |||
| Terrestrial Mammals | Animalia | Chordata | Mammalia | |||
| Marine Mammals | Animalia | Chordata | Mammalia | |||
| Mammals Scattered Islands | Animalia | Chordata | Mammalia | |||
| Terrestial Mammals | Animalia | Chordata | Mammalia | |||
| Aquatic Mammals | Animalia | Chordata | Mammalia | |||
| Metropolitan Mammals | Animalia | Chordata | Mammalia | |||
| Endemic Mammals | Animalia | Chordata | Mammalia | |||
| Large Mammals | Animalia | Chordata | Mammalia | |||
| Insectivores | Animalia | Chordata | Mammalia | |||
| Carnivores | Animalia | Chordata | Mammalia | |||
| Marine Cetartiodactyla | Animalia | Chordata | Mammalia | |||
| Terrestrial Cetartiodactyla | Animalia | Chordata | Mammalia | |||
| Proboscidea & Sirenia | Animalia | Chordata | Mammalia | |||
| Endangered Mammals | Animalia | Chordata | Mammalia | |||
| Ungulates | Animalia | Chordata | Mammalia | |||
| Land Mammals | Animalia | Chordata | Mammalia | |||
| Caimans | Animalia | Chordata | Reptilia | Crocodilia | ||
| Chameleons | Animalia | Chordata | Reptilia | Squamata | ||
| Lizards and Worm-Lizards | Animalia | Chordata | Reptilia | Squamata | ||
| Snakes | Animalia | Chordata | Reptilia | Squamata | ||
| Marine Turtles | Animalia | Chordata | Reptilia | Testudines | ||
| Turtles | Animalia | Chordata | Reptilia | Testudines | ||
| Sea Turtles | Animalia | Chordata | Reptilia | Testudines | ||
| Reptiles | Animalia | Chordata | Reptilia | |||
| Terrestrial Reptiles | Animalia | Chordata | Reptilia | |||
| Endemic Lizards | Animalia | Chordata | Reptilia | |||
| Endemic Reptiles | Animalia | Chordata | Reptilia | |||
| Fishes | Animalia | Chordata | ||||
| Lampreys | Animalia | Chordata | ||||
| Freshwater Fishes | Animalia | Chordata | ||||
| Marine Fishes | Animalia | Chordata | ||||
| Tunicata | Animalia | Chordata | ||||
| Lancelets | Animalia | Chordata | ||||
| Reef Fishes | Animalia | Chordata | ||||
| Terrestrial Vertebrates | Animalia | Chordata | ||||
| Freshwater and Migratory Fishes | Animalia | Chordata | ||||
| Cyclostomata | Animalia | Chordata | ||||
| Endangered Vertebrates | Animalia | Chordata | ||||
| Endemic Freshwater Fishes | Animalia | Chordata | ||||
| Linefishes | Animalia | Chordata | ||||
| Brackish and Freshwater Fishes | Animalia | Chordata | ||||
| Corals | Animalia | Cnidaria | ||||
| Cnidaria | Animalia | Cnidaria | PHYLUM | |||
| Reef Corals | Animalia | Cnidaria | ||||
| Marine Cnidaria | Animalia | Cnidaria | ||||
| Echinoderms | Animalia | Echinodermata | ||||
| Acorn Worms | Animalia | Hemichordata | Enteropneusta | |||
| Bivalvia | Animalia | Mollusca | Bivalvia | CLASS | ||
| Marine Bivalves | Animalia | Mollusca | Bivalvia | |||
| Mussels | Animalia | Mollusca | Bivalvia | |||
| Musslels | Animalia | Mollusca | Bivalvia | |||
| Cephalopods | Animalia | Mollusca | Cephalopoda | |||
| Gastropoda | Animalia | Mollusca | Gastropoda | CLASS | ||
| Snails | Animalia | Mollusca | Gastropoda | |||
| Marine Snails | Animalia | Mollusca | Gastropoda | |||
| Terrestrial Gastropods | Animalia | Mollusca | Gastropoda | |||
| Freshwater Gastropods | Animalia | Mollusca | Gastropoda | |||
| Mollusca | Animalia | Mollusca | PHYLUM | |||
| Molluscs | Animalia | Mollusca | ||||
| Terrestrial Molluscs | Animalia | Mollusca | ||||
| Non-Marine Molluscs | Animalia | Mollusca | ||||
| Inland Molluscs | Animalia | Mollusca | ||||
| Species-Poor Groups of Marine Molluscs | Animalia | Mollusca | ||||
| Freswater Mollusc | Animalia | Mollusca | ||||
| Extramarine Molluscs | Animalia | Mollusca | ||||
| Nematoda | Animalia | Nematoda | PHYLUM | |||
| Ribbon Worms | Animalia | Nemertea | ||||
| Flatworms | Animalia | Platyhelminthes | Turbellaria | |||
| Porifera | Animalia | Porifera | PHYLUM | |||
| Sea Sponges | Animalia | Porifera | ||||
| Vertebrates | Animalia | chordata | ||||
| Fauna | Animalia | |||||
| Cave Fauna | Animalia | |||||
| Polychaeta | Animalia | KINGDOM | ||||
| Invertebrates | Animalia | |||||
| Fauna_en_higher | Animalia | |||||
| Fauna_nt_lc_dd | Animalia | |||||
| Fauna_en_vu | Animalia | |||||
| Terrestrial Invertebrates | Animalia | |||||
| Aquatic Invertebrates | Animalia | |||||
| Fauna_flagship Species | Animalia | |||||
| Endemic Fauna | Animalia | |||||
| Protected Animals | Animalia | |||||
| Endangered Fauna | Animalia | |||||
| Selected Species | Animalia | |||||
| Marine Species | Animalia | |||||
| Endangered Species | Animalia | |||||
| Marine Invertebrates | Animalia | |||||
| Freshwater Plants | Animalia | |||||
| Flora Visiting Fauna | Animalia | |||||
| Other Invertebrates | Animalia | |||||
| Other Marine Invertebrates | Animalia | |||||
| Marine Fauna | Animalia | |||||
| Endemic Animals | Animalia | |||||
| Vaucheriaceae | Chromista | Ochrophyta | Xanthophyceae | Vaucheriales | Vaucheriaceae | FAMILY |
| Ascomycota | Fungi | Ascomycota | PHYLUM | |||
| Agaricales | Fungi | Basidiomycota | Agaricomycetes | Agaricales | ORDER | |
| Boletaceae | Fungi | Basidiomycota | Agaricomycetes | Boletales | Boletaceae | FAMILY |
| Boletales | Fungi | Basidiomycota | Agaricomycetes | Boletales | ORDER | |
| Russulales | Fungi | Basidiomycota | Agaricomycetes | Russulales | ORDER | |
| Ustilaginales | Fungi | Basidiomycota | Ustilaginomycetes | Ustilaginales | ORDER | |
| Basidiomycota | Fungi | Basidiomycota | PHYLUM | |||
| Fungi | Fungi | KINGDOM | ||||
| Macromycetes | Fungi | |||||
| Mushrooms | Fungi | |||||
| Macrofungi | Fungi | |||||
| Phytoparasitic Small Fungi | Fungi | |||||
| Large Mushrooms | Fungi | |||||
| Lichenicolous Fungus | Fungi | |||||
| Ascomycetes | Fungi | |||||
| Aphyllophorales | Fungi | |||||
| Phytoparasitic Microfungi | Fungi | |||||
| Characeae | Plantae | Charophyta | Charophyceae | Charales | Characeae | FAMILY |
| Charophyceae | Plantae | Charophyta | Charophyceae | CLASS | ||
| Desmidiales | Plantae | Charophyta | Conjugatophyceae | Desmidiales | ORDER | |
| Zygnematophyceae | Plantae | Charophyta | Zygnematophyceae | CLASS | ||
| Freshwater Diatoms | Plantae | Gyrista | Bacillariophyceae | |||
| Marchantiophyta | Plantae | Marchantiophyta | PHYLUM | |||
| Apiaceae | Plantae | Tracheophyta | Magnoliopsida | Apiales | Apiaceae | FAMILY |
| Cactaceae | Plantae | Tracheophyta | Magnoliopsida | Caryophyllales | Cactaceae | FAMILY |
| Magnoliaceae | Plantae | Tracheophyta | Magnoliopsida | Magnoliales | Magnoliaceae | FAMILY |
| Anisoptera | Plantae | Tracheophyta | Magnoliopsida | Malvales | Dipterocarpaceae | GENUS |
| Dipterocarpaceae | Plantae | Tracheophyta | Magnoliopsida | Malvales | Dipterocarpaceae | FAMILY |
| Magnoliophyta | Plantae | Tracheophyta | PHYLUM | |||
| Charophytes | Plantae | Charophyceae | Charales | |||
| Lycopods | Plantae | Lycopodiopsida | Lycopodiales | |||
| Tree Ferns | Plantae | Polypodiopsida | ||||
| Sphagnum Mosses | Plantae | Sphagnopsida | ||||
| Orchids | Plantae | Asparagales | ||||
| Wild Cinnamon | Plantae | Laurales | ||||
| Bromeliads | Plantae | Poales | ||||
| Flora | Plantae | |||||
| Bryophytes | Plantae | |||||
| Ferns | Plantae | |||||
| Vascular Plants | Plantae | |||||
| Lichens | Plantae | |||||
| Hydrophytes | Plantae | |||||
| Marine Flora | Plantae | |||||
| Hornworts | Plantae | |||||
| Liverworts | Plantae | |||||
| Mosses | Plantae | |||||
| Flora Saint Paul and Amsterdam | Plantae | |||||
| Flora Scattered Islands | Plantae | |||||
| Flora Kerguelen | Plantae | |||||
| Endemic Flora | Plantae | |||||
| Trees | Plantae | |||||
| Shrubs | Plantae | |||||
| Algae | Plantae | |||||
| Arctic Vascular Plants | Plantae | |||||
| Marine Macroalgae | Plantae | |||||
| Freshwater Red Algae | Plantae | |||||
| Freshwater Brown Algae | Plantae | |||||
| Flowering Plant | Plantae | |||||
| Red Algae | Plantae | |||||
| Brown Algae | Plantae | |||||
| Hepaticophyta | Plantae | |||||
| Broad-Leaved Mosses | Plantae | |||||
| Lichen Communities | Plantae | |||||
| Flora of Cerrado Biom | Plantae | |||||
| Endemic Plants | Plantae | |||||
| Flora On the Red List | Plantae | |||||
| Protected Plants | Plantae | |||||
| Endangered Plants | Plantae | |||||
| Near-Endemic Flora | Plantae | |||||
| Perennial Shrubs | Plantae | |||||
| Flora_2 | Plantae | |||||
| Endemic and Range-Restricted Vascular Plantss | Plantae | |||||
| Indigenous Plants | Plantae | |||||
| Selected Species In Marshlands | Plantae | |||||
| Conifers | Plantae | |||||
| Peninsular Planrs | Plantae | |||||
| Lycophytes | Plantae | |||||
| Higher Plants | Plantae | |||||
| Cloud Forest Trees | Plantae | |||||
| Spermatophytes | Plantae | |||||
| Palms | Plantae | |||||
| Wild Crop Relatives | Plantae | |||||
| Aquatic Plants | Plantae | |||||
| Medicinal Plants | Plantae | |||||
| Dry Forest Trees | Plantae | |||||
| Monocotyledons | Plantae | |||||
| Freshwater Flora | Plantae | |||||
| Flora List | Plantae | |||||
| Endemic Trees | Plantae | |||||
| Myxomycetes | Protozoa | Mycetozoa | Myxomycetes | CLASS | ||
| Protozoa | Protozoa | KINGDOM | ||||
| Zygoptera | Protozoa | GENUS |
FIX
raw_metadata %>%
mutate(kingdom = ifelse(group == 'Flora', 'Plantae', kingdom)) %>%
mutate(kingdom = ifelse(group == 'Fauna', 'Animalia', kingdom)) %>%
mutate(phylum = ifelse(group == 'Flora' | group == 'Fauna', NA, phylum)) %>%
mutate(phylum = ifelse(group =='Onychophora', 'Onychophora', phylum)) %>%
mutate(group = ifelse(group =='Opilioness', 'Opiliones', group)) %>%
mutate(group = ifelse(group =='False scorpions', 'Pseudoscorpiones', group)) %>%
mutate(order = ifelse(group =='False scorpions', 'Pseudoscorpiones', order)) %>%
mutate(class = ifelse(group =='Entomostraca', NA, class)) %>%
mutate(class = ifelse(group =='Horseshoe Crabs', 'Merostomata', class)) %>%
mutate(class = ifelse(group =='Freshwater Crabs', 'Malacostraca', class)) %>%
mutate(class = ifelse(group =='Sharks', 'Chondrichthyes', class)) %>%
mutate(order = ifelse(iso_2 == 'KE' & group == 'Carnivores', 'Carnivora', order),
order = ifelse(iso_2 == 'KE' & group == 'Perissodactyla', 'Perissodactyla', order),
order = ifelse(iso_2 == 'KE' & group == 'Marine Cetartiodactyla', 'Artiodactyla', order),
order = ifelse(iso_2 == 'KE' & group == 'Terrestrial Cetartiodactyla', 'Artiodactyla', order)) %>%
mutate(group = ifelse(group == 'Marine Cetartiodactyla', 'Cetaceans', group),
group = ifelse(group == 'Terrestrial Cetartiodactyla', 'Ungulates', group)) %>%
mutate(order = ifelse(group =='Endemic Lizards', 'Squamata', order)) %>%
mutate(class = ifelse(grepl('lamprey', ignore.case=T, group), 'Petromyzonti', class),
order = ifelse(grepl('lamprey', ignore.case=T, group), 'Petromyzontiformes', order)) %>%
mutate(group = ifelse(group == 'Musslels', 'Mussels', group)) %>%
mutate(phylum = ifelse(grepl('orchid', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('orchid', ignore.case=T, group), 'Liliopsida', class),
order = ifelse(grepl('orchid', ignore.case=T, group), 'Asparagales', order)) %>%
mutate(phylum = ifelse(grepl('bromeli', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('bromeli', ignore.case=T, group), 'Liliopsida', class)) %>%
mutate(phylum = ifelse(grepl('cinnamon', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('cinnamon', ignore.case=T, group), 'Magnoliopsida', class),
order = ifelse(grepl('cinnamon', ignore.case=T, group), 'Canellales', order)) %>%
mutate(phylum = ifelse(grepl('tree|shrub|vascular|angio|spermato|flower', ignore.case=T, group),
'Tracheophyta', phylum)) %>%
mutate(phylum = ifelse(grepl('ferns', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('ferns', ignore.case=T, group), 'Polypodiopsida', class)) %>%
mutate(phylum = ifelse(grepl('conif', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('conif', ignore.case=T, group), 'Pinopsida', class)) %>%
mutate(phylum = ifelse(grepl('palm', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('palm', ignore.case=T, group), 'Liliopsida', class),
order = ifelse(grepl('palm', ignore.case=T, group), 'Arecales', order)) %>%
mutate(class = ifelse(grepl('monocot', ignore.case=T, group), 'Tracheophyta', class)) Check Event fields
The fields is: year
- Check it has numeric values.
raw_metadata %>%
janitor::clean_names() %>%
janitor::remove_empty(c('rows', 'cols')) %>%
mutate(year = ifelse(year == 'NA', NA, year)) %>%
mutate(year = ifelse(year == '2024?', NA, year)) %>%
mutate(year = ifelse(name_orig == 'The Red List of Mammals of South Africa, Swaziland and Lesotho 2024',
2024, year)) %>%
mutate(year = as.numeric(year, na.rm=T)) %>%
filter(is.na(year)) %>%
select(year, name_orig) %>%
distinct(name_orig, .keep_all = T) DOUBTS
https://www.odonat-grandest.fr/listes-rouges-grand-est-etat-avancement/
A Red List of Benin’s sharks
The Red List of Mammals of South Africa, Swaziland and Lesotho 2024
1 Crveni popis hrvatskih koralja
2 Crveni popis lišajeva Hrvatske
3 Červené seznamy
4 Coleoptera (Beetle) – Invertebrate Ireland Online
5 Tricoptera (Caddisfly) – InvertebrateIreland Online
6 Les mammifères de la Côte d’Ivoire
7 Rongeurs et insectivores de Côte d’Ivoire, leur habitat et leur statut de conservation
8 Красная книга Азербайджанской Республики
9 Красная книга Узбекистана
Check if URLs are working
# URL incorrect
raw_metadata %>%
filter(!grepl('http', url_clean)) %>%
distinct(url_clean)# A tibble: 3 × 1
url_clean
<chr>
1 NA
2 ima.sc.gov.br/index.php/biodiversidade/biodiversidade/fauna
3 <NA>
# URL error
# raw_metadata %>% filter(grepl('http', url_clean)) %>%
# distinct(url_clean) %>%
# mutate(check_URL = ifelse(map(URLencode(url_clean), http_error), 'not found', 'OK')) %>%
# filter(check_URL == 'not found')
raw_metadata %>%
filter(!grepl('http', url_clean)) %>%
distinct(url_clean)# A tibble: 3 × 1
url_clean
<chr>
1 NA
2 ima.sc.gov.br/index.php/biodiversidade/biodiversidade/fauna
3 <NA>
raw_metadata %>%
mutate(url_clean = ifelse(grepl('Nicolau', url_clean), NA, url_clean)) %>%
filter(!grepl('http', url_clean)) %>%
distinct(url_clean)# A tibble: 3 × 1
url_clean
<chr>
1 NA
2 ima.sc.gov.br/index.php/biodiversidade/biodiversidade/fauna
3 <NA>
DOUBTS
ima.sc.gov.br/index.php/biodiversidade/biodiversidade/fauna
Nicolau, J. i Dalmau, J., 2008. Llista Vermella\r\ndels Vertebrats d’Andorra. BIOCOM (Biologia i\r\nComunicació) SL i Departament de Patrimoni\r\nNatural del Govern d’Andorra. Informe inèdit
Run code and keep relevant fields
metadata <-
# check taxon
left_join(raw_metadata %>% mutate(group = str_trim(group)) %>%
select(-c(kingdom,phylum,subphylum,class,order)),
bind_rows(merged_list %>% filter(!is.na(scientificName)),
merged_list %>% filter(is.na(scientificName)) %>%
select(group) %>%
left_join(. , raw_metadata_taxon_list))) %>%
mutate(group = str_trim(group)) %>%
mutate(group = str_to_title(group)) %>%
mutate(group = str_replace_all(group, 'And ', 'and ')) %>%
mutate(group = str_replace_all(group, 'Of', 'of')) %>%
mutate(group = str_replace_all(group, 'The', 'the')) %>%
# more taxonomic corrections
mutate(kingdom = ifelse(group == 'Flora', 'Plantae', kingdom)) %>%
mutate(kingdom = ifelse(group == 'Fauna', 'Animalia', kingdom)) %>%
mutate(phylum = ifelse(group == 'Flora' | group == 'Fauna', NA, phylum)) %>%
mutate(phylum = ifelse(group =='Onychophora', 'Onychophora', phylum)) %>%
mutate(group = ifelse(group =='Opilioness', 'Opiliones', group)) %>%
mutate(group = ifelse(group =='False scorpions', 'Pseudoscorpiones', group)) %>%
mutate(order = ifelse(group =='False scorpions', 'Pseudoscorpiones', order)) %>%
mutate(class = ifelse(group =='Entomostraca', NA, class)) %>%
mutate(class = ifelse(group =='Horseshoe Crabs', 'Merostomata', class)) %>%
mutate(class = ifelse(group =='Freshwater Crabs', 'Malacostraca', class)) %>%
mutate(class = ifelse(group =='Sharks', 'Chondrichthyes', class)) %>%
mutate(order = ifelse(iso_2 == 'KE' & group == 'Carnivores', 'Carnivora', order),
order = ifelse(iso_2 == 'KE' & group == 'Perissodactyla', 'Perissodactyla', order),
order = ifelse(iso_2 == 'KE' & group == 'Marine Cetartiodactyla', 'Artiodactyla', order),
order = ifelse(iso_2 == 'KE' & group == 'Terrestrial Cetartiodactyla', 'Artiodactyla', order)) %>%
mutate(group = ifelse(group == 'Marine Cetartiodactyla', 'Cetaceans', group),
group = ifelse(group == 'Terrestrial Cetartiodactyla', 'Ungulates', group)) %>%
mutate(order = ifelse(group =='Endemic Lizards', 'Squamata', order)) %>%
mutate(class = ifelse(grepl('lamprey', ignore.case=T, group), 'Petromyzonti', class),
order = ifelse(grepl('lamprey', ignore.case=T, group), 'Petromyzontiformes', order)) %>%
mutate(group = ifelse(group == 'Musslels', 'Mussels', group)) %>%
mutate(phylum = ifelse(grepl('orchid', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('orchid', ignore.case=T, group), 'Liliopsida', class),
order = ifelse(grepl('orchid', ignore.case=T, group), 'Asparagales', order)) %>%
mutate(phylum = ifelse(grepl('bromeli', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('bromeli', ignore.case=T, group), 'Liliopsida', class)) %>%
mutate(phylum = ifelse(grepl('cinnamon', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('cinnamon', ignore.case=T, group), 'Magnoliopsida', class),
order = ifelse(grepl('cinnamon', ignore.case=T, group), 'Canellales', order)) %>%
mutate(phylum = ifelse(grepl('tree|shrub|vascular|angio|spermato|flower', ignore.case=T, group),
'Tracheophyta', phylum)) %>%
mutate(phylum = ifelse(grepl('ferns', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('ferns', ignore.case=T, group), 'Polypodiopsida', class)) %>%
mutate(phylum = ifelse(grepl('conif', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('conif', ignore.case=T, group), 'Pinopsida', class)) %>%
mutate(phylum = ifelse(grepl('palm', ignore.case=T, group), 'Tracheophyta', phylum),
class = ifelse(grepl('palm', ignore.case=T, group), 'Liliopsida', class),
order = ifelse(grepl('palm', ignore.case=T, group), 'Arecales', order)) %>%
mutate(class = ifelse(grepl('monocot', ignore.case=T, group), 'Tracheophyta', class)) %>%
# check columns
janitor::clean_names() %>%
janitor::remove_empty(c('rows', 'cols')) %>%
# check source
mutate(name_orig = str_squish(name_orig)) %>%
mutate(name_orig = str_remove_all(name_orig, "\\\\")) %>%
mutate(name_orig = str_remove_all(name_orig, "\"")) %>%
# missing name of source
##
# TO ADD HERE
##
# check format
mutate(format = ifelse(format == 'NA', NA, str_squish(format))) %>%
mutate(format = ifelse(format == '?', NA, format)) %>%
# check language
mutate(language = ifelse(language == 'NA', NA, str_squish(language))) %>%
mutate(language = str_replace(language, "/|\\|", ' | ')) %>%
# check location
mutate(continent = str_squish(str_replace_all(str_squish(continent), '\\|', ' | '))) %>%
mutate(continent = str_replace_all(continent, '_', ' ')) %>%
mutate(continent = str_to_title(continent)) %>%
mutate(country = ifelse(country == 'NA', NA, str_squish(country))) %>%
mutate(country = str_replace_all(country, '_', ' ')) %>%
mutate(country = ifelse(country == 'USSR', NA, str_to_title(country))) %>%
mutate(country = str_replace_all(country, 'And ', 'and ')) %>%
mutate(country = str_replace_all(country, 'Of', 'of')) %>%
mutate(country = str_replace_all(country, 'The', 'the')) %>%
mutate(state_province = ifelse(state_province == 'NA', NA, str_squish(state_province))) %>%
mutate(state_province = str_to_title(state_province)) %>%
mutate(iso_2 = ifelse(iso_2 == 'NA' & country != 'Namibia', NA, str_squish(iso_2))) %>%
mutate(iso_3 = ifelse(iso_3 == 'NA', NA, str_squish(iso_3))) %>%
mutate(iso_2 = str_squish(str_replace_all(str_squish(iso_2), '\\|', ' | '))) %>%
mutate(iso_3 = str_squish(str_replace_all(str_squish(iso_3), '\\|', ' | '))) %>%
mutate(gadm_level_1 = ifelse(gadm_level_1 == 'NA', NA, str_squish(gadm_level_1))) %>%
mutate(gadm_level_1 = str_to_title(gadm_level_1)) %>%
mutate(gadm_level_1 = str_replace_all(gadm_level_1, 'And ', 'and ')) %>%
mutate(gadm_level_1 = str_replace_all(gadm_level_1, 'Of', 'of')) %>%
mutate(gadm_level_1 = str_replace_all(gadm_level_1, 'The', 'the')) %>%
mutate(gadm_level_2 = ifelse(gadm_level_2 == 'NA', NA, str_squish(gadm_level_2))) %>%
mutate(gadm_level_2 = str_to_title(gadm_level_2)) %>%
mutate(region_custom = ifelse(region_custom == 'NA', NA, str_squish(region_custom))) %>%
mutate(region_detail = ifelse(region_detail == 'NA', NA, str_squish(region_detail))) %>%
mutate(region_detail = str_squish(str_replace_all(str_squish(region_detail), '\\|', ' | '))) %>%
# check event
mutate(year = ifelse(year == 'NA', NA, year)) %>%
mutate(year = ifelse(year == '2024?', NA, year)) %>%
mutate(year = ifelse(name_orig == 'The Red List of Mammals of South Africa, Swaziland and Lesotho 2024',
2024, year)) %>%
mutate(year = as.numeric(year, na.rm=T)) %>%
# check urls
mutate(url_clean = ifelse(grepl('Nicolau', url_clean), NA, url_clean)) %>%
# select columns
select(id, continent,
gadm_level_0 = country, gadm_level_1, gadm_level_2,
region_custom, region_detail, iso_2, iso_3,
taxa=group, kingdom, phylum, class, order, family,
source_name= name_orig, source_link = url_clean,
language, year)
metadata %>% slice_sample(n=50) %>% arrange(id) %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position'))| id | continent | gadm_level_0 | gadm_level_1 | gadm_level_2 | region_custom | region_detail | iso_2 | iso_3 | taxa | kingdom | phylum | class | order | family | source_name | source_link | language | year |
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 3 | Europe | Norway | NO | NOR | Flora | Plantae | Norsk Rødliste 2006 | https://archive.nationalredlist.org/files/2012/08/2006-Norwegian-Red-List.pdf | Norwegian | 2006 | ||||||||
| 61 | Europe | Austria | Oberösterreich | AT | AUT | Ants | Animalia | Arthropoda | Insecta | Hymenoptera | Kommentierte Checkliste der Ameisen Oberösterreichs mit einer Einstufung ihrer Gefährdung (Hymenoptera, Formicidae) | https://www.zobodat.at/pdf/BNO_0019_0003-0048.pdf | Deutsch | 2009 | ||||
| 63 | Europe | Austria | Burgenland | AT | AUT | Magnoliophyta | Plantae | Tracheophyta | CHECKLISTE UND ROTE LISTE DER FARN- UND BLÜTENPFLANZEN DES BURGENLANDES | https://www.burgenland.at/fileadmin/user_upload/20220907_RL_Burgenland.pdf | Deutsch | 2022 | ||||||
| 202 | Europe | Slovenia | SI | SVN | Bryophytes | Plantae | Rdeči seznam mahov (Bryophyta) | https://www.uradni-list.si/files/RS_-2002-082-04055-OB~P002-0000.PDF | Slovenian | 2002 | ||||||||
| 358 | Africa | Réunion | RE | REU | Flora | Plantae | Liste rouge des plantes vasculaires de la Réunion (France) | https://inpn.mnhn.fr/espece/listerouge/FR/Flore_vasculaire_La_Reunion_2023 | French | 2023 | ||||||||
| 435 | Europe | France | Centre | FR | FRA | Reptiles | Animalia | Chordata | Reptilia | Liste rouge des Reptiles de la région Centre | https://inpn.mnhn.fr/docs/LR_FCE/LR_regionale/Centre-Val de Loire/1-reptiles_2012_cle2f2ccf-1.pdf | French | 2012 | |||||
| 461 | Europe | France | Hauts-de-France | FR | FRA | Molluscs | Animalia | Mollusca | Liste rouge des Mollusques des Hautes-de-France | https://irpn.drealnpdc.fr/listes-rouges/listes-rouges-regionales/ | French | 2018 | ||||||
| 506 | Europe | France | Alsace | FR | FRA | Bryophytes | Plantae | La liste rouge des bryophytes menacées en Alsace | https://inpn.mnhn.fr/docs/LR_FCE/LR_regionale/Alsace/LR_Bryophytes_Alsace_2014.pdf | French | 2014 | |||||||
| 571 | Europe | France | Midi-Pyrénées | FR | FRA | Reptiles | Animalia | Chordata | Reptilia | Liste rouge des amphibiens et des reptiles de Midi-Pyrénées | https://inpn.mnhn.fr/docs/LR_FCE/LR_regionale/Midi-Pyr%C3%A9n%C3%A9es/reptiles-amphibiens_MP.pdf | French | 2014 | |||||
| 576 | Europe | France | Nord-Pas-De-Calais | FR | FRA | Spiders | Animalia | Arthropoda | Arachnida | Araneae | La Liste rouge des espèces menacées dans le Nord et le Pas-de-Calais : les Araignées | https://www.hauts-de-france.developpement-durable.gouv.fr/?Les-listes-rouges-regionales | French | 2018 | ||||
| 591 | Europe | France | Poitou-Charentes | FR | FRA | Owlflies | Animalia | Arthropoda | Insecta | Neuroptera | Liste rouge des Cigales, Mantes, Phasme et Ascalaphes du Poitou-Charentes | https://inpn.mnhn.fr/docs/LR_FCE/LR_regionale/Poitou-Charentes/LRR_autres_insectes_Poitou_Charentes_2018.pdf | French | 2018 | ||||
| 738 | Europe | Isle of Man | IM | IMN | Flora | Plantae | Plants of Conservation Concern in the Isle of Man 2022 | https://www.mwt.im/sites/default/files/2022-10/PoCCIoM%202022%20Final%20Webpage%20Content%2003%20Oct%202022.pdf | English | 2022 | ||||||||
| 943 | Europe | Germany | DE | DEU | Sphinges S.l. | Animalia | Arthropoda | Insecta | Lepidoptera | Rote Liste und Gesamtartenliste der Spinnerartigen Falter (Lepidoptera: Bombyces, Sphinges s.l.) Deutschlands | https://www.rote-liste-zentrum.de/en/Download-Vertebrates-1874.html | German | 2011 | |||||
| 1188 | Europe | Germany | Brandenburg | DE | DEU | Fishes | Animalia | Chordata | Rote Liste der Fische und Rundmäuler (Pisces et Cyclostomata) des Landes Brandenburg | https://lfu.brandenburg.de/lfu/de/ueber-uns/veroeffentlichungen/detail/~08-09-2011-zeitschrift-naturschutz-und-landschaftspflege-in-brandenburg-beilage-zu-heft-3-2011 | German | 2011 | ||||||
| 1245 | Europe | Germany | Bremen | DE | DEU | Mayflies | Animalia | Arthropoda | Insecta | Ephemeroptera | Rote Liste der Eintags-, Stein- und Köcherfliegenarten Niedersachsens | https://www.nlwkn.niedersachsen.de/naturschutz/rote-liste-der-eintags-stein-und-kocherfliegenarten-niedersachsens-38879.html | German | 2000 | ||||
| 1270 | Europe | Germany | Niedersachsen | DE | DEU | Lichens | Plantae | Rote Liste und Gesamtartenliste der Flechten in Niedersachsen und Bremen | https://www.nlwkn.niedersachsen.de/veroeffentlichungen-naturschutz/rote-liste-und-gesamtartenliste-der-flechten-in-niedersachsen-und-bremen-75316.html | German | 2010 | |||||||
| 1333 | Europe | Germany | Hessen | DE | DEU | Stoneflies | Animalia | Arthropoda | Insecta | Plecoptera | fliegen Rote Liste der Steinfliegen | https://www.hlnug.de/themen/naturschutz/rote-listen | German | 2015 | ||||
| 1338 | Europe | Germany | Hessen | DE | DEU | Heteroptera | Animalia | Arthropoda | Insecta | Diptera | Sphaeroceridae | Rote Liste der Landwanzen | https://www.hlnug.de/themen/naturschutz/rote-listen | German | 2003 | |||
| 1369 | Europe | Germany | Mecklenburg-Vorpommern | DE | DEU | Mayflies | Animalia | Arthropoda | Insecta | Ephemeroptera | Rote Liste der gefährdeten Eintags-, Stein- und Köcherfliegen Mecklenburg-Vorpommerns | https://www.lung.mv-regierung.de/fachinformationen/natur-und-landschaft/artenschutz/rote-listen/ | German | 2016 | ||||
| 1398 | Europe | Germany | Nordrhein-Westfalen | DE | DEU | Noctuidae | Animalia | Arthropoda | Insecta | Lepidoptera | Noctuidae | Rote Liste und Artenverzeichnis der Schmetterlinge - Lepidoptera - in Nordrhein-Westfalen | https://www.lanuk.nrw.de/themen/natur/artenschutz/rote-liste | German | 2021 | |||
| 1406 | Europe | Germany | Nordrhein-Westfalen | DE | DEU | Torticidae | Animalia | Arthropoda | Insecta | Lepidoptera | Rote Liste und Artenverzeichnis der Schmetterlinge - Lepidoptera - in Nordrhein-Westfalen | https://www.lanuk.nrw.de/themen/natur/artenschutz/rote-liste | German | 2021 | ||||
| 1428 | Europe | Germany | Nordrhein-Westfalen | DE | DEU | Wasps | Animalia | Arthropoda | Insecta | Hymenoptera | Rote Liste und Gesamtartenliste der Wildbienen und Wespen - Hymenoptera - Aculeata - in Nordrhein-Westfalen | https://www.lanuk.nrw.de/themen/natur/artenschutz/rote-liste | German | 2009 | ||||
| 1537 | Europe | Germany | Sachsen | DE | DEU | Butterflies | Animalia | Arthropoda | Insecta | Lepidoptera | Rote Liste Tagfalter Sachsens | https://publikationen.sachsen.de/bdb/artikel/11404 | German | 2007 | ||||
| 1554 | Europe | Germany | Sachsen | DE | DEU | Mushrooms | Fungi | Kommentierte Artenliste Pilze | https://publikationen.sachsen.de/bdb/artikel/41177 | German | 1998 | |||||||
| 1585 | Europe | Germany | Sachsen-Anhalt | DE | DEU | Mantodea | Animalia | Arthropoda | Insecta | Mantodea | Rote Listen Sachsen-Anhalt 2020 | https://lau.sachsen-anhalt.de/alt-vor-neuer-navigation/wir-ueber-uns-publikationen/fachpublikationen/berichte-des-lau/rote-listen-sachsen-anhalt-2040 | German | 2020 | ||||
| 1602 | Europe | Germany | Sachsen-Anhalt | DE | DEU | Soldier Beetles | Animalia | Arthropoda | Insecta | Coleoptera | Rote Listen Sachsen-Anhalt 2020 | https://lau.sachsen-anhalt.de/alt-vor-neuer-navigation/wir-ueber-uns-publikationen/fachpublikationen/berichte-des-lau/rote-listen-sachsen-anhalt-2044 | German | 2020 | ||||
| 1652 | Europe | Germany | Sachsen-Anhalt | DE | DEU | Breeding Birds | Animalia | Chordata | Aves | Rote Listen Sachsen-Anhalt 2004 | https://lau.sachsen-anhalt.de/naturschutz/arten-und-biotopschutz/berichte-lau-heft-39-2004-rote-liste | German | 2004 | |||||
| 1658 | Europe | Germany | Sachsen-Anhalt | DE | DEU | Leeches | Animalia | Annelida | Clitellata | Rote Listen Sachsen-Anhalt 2004 | https://lau.sachsen-anhalt.de/naturschutz/arten-und-biotopschutz/berichte-lau-heft-39-2004-rote-liste | German | 2004 | |||||
| 1712 | Europe | Germany | Sachsen-Anhalt | DE | DEU | Scorpionflies | Animalia | Arthropoda | Insecta | Mecoptera | Rote Listen Sachsen-Anhalt 2004 | https://lau.sachsen-anhalt.de/naturschutz/arten-und-biotopschutz/berichte-lau-heft-39-2004-rote-liste | German | 2004 | ||||
| 1790 | Europe | Germany | Thüringen | DE | DEU | Scarabaeidae | Animalia | Arthropoda | Insecta | Coleoptera | Scarabaeidae | Rote Liste der Blatthornkäfer und Hirschkäfer (Insecta: Coleoptera: Scarabaeoidea) Thüringens 2011 | https://tlubn.thueringen.de/naturschutz/rote-listen/kaefer | German | 2011 | |||
| 1856 | Europe | Germany | Thüringen | DE | DEU | Sphecidae | Animalia | Arthropoda | Insecta | Hymenoptera | Sphecidae | Rote Liste der Grabwespen (Insecta: Hymenoptera: Ampulicidae, Sphecidae, Crabronidae) Thüringens 2010 | https://tlubn.thueringen.de/naturschutz/rote-listen/sonstige-wirbellose | German | 2010 | |||
| 1882 | Europe | Kosovo | XK | KOS | Vascular Plants | Plantae | Tracheophyta | Lista e kuqe e florës vaskulare të Republikës së Kosovës | https://www.ammk-rks.net/al/lajmi-single/249 | German | 2015 | |||||||
| 1888 | Europe | Liechtenstein | LI | LIE | Fishes | Animalia | Chordata | Die Fische im Fürstentum Liechtenstein | https://www.llv.li/serviceportal2/amtsstellen/amt-fuer-umwelt/publikationen/naturkindliche-forschung/b3-fische-2.pdf | German | 1984 | |||||||
| 1898 | Europe | Liechtenstein | LI | LIE | Reptiles | Animalia | Chordata | Reptilia | Die Reptilien des Fürstentums Liechtenstein | https://www.llv.li/serviceportal2/amtsstellen/amt-fuer-umwelt/publikationen/naturkindliche-forschung/b23-reptilien.pdf | German | 2006 | ||||||
| 1971 | South America | Brazil | Ceará | BR | BRA | Mammals | Animalia | Chordata | Mammalia | Lista Vermelha – MAMÍFEROS TERRESTRES | https://www.deepl.com/cs/translator | Portuguese | 2022 | |||||
| 2161 | Asia | Singapore | SG | SGP | Flora | Plantae | THE SINGAPORE RED DATA BOOK 3rd Edition | https://www.nparks.gov.sg/nature/species-list | English | 2024 | ||||||||
| 2167 | Asia | Singapore | SG | SGP | Beetles | Animalia | Arthropoda | Insecta | Coleoptera | THE SINGAPORE RED DATA BOOK 2nd Edition | https://www.nparks.gov.sg/nature/species-list | English | 2008 | |||||
| 2185 | Asia | Taiwan | TW | TWN | Birds | Animalia | Chordata | Aves | The Red List of Birds of Taiwan | https://www.researchgate.net/publication/312045198_The_Red_List_of_Birds_of_Taiwan_2016 | Chinese | 2016 | ||||||
| 2375 | Europe | Luxembourg | LU | LUX | Orthoptera | Animalia | Arthropoda | Insecta | Orthoptera | Rote Liste der Heuschrecken Luxemburgs | https://www.snl.lu/publications-wp/bulletins-depuis-1891-pdf/?modus=articles&issue=104 | German | 2003 | |||||
| 2416 | Europe | Finland | FI | FIN | Flora | Plantae | Suomen lajien uhanalaisuus : Punainen kirja 2019 | https://helda.helsinki.fi/items/2ec69a48-d943-488c-927f-19bbf9f92cb5 | English | 2019 | ||||||||
| 2453 | Europe | Iceland | IS | ISL | Algae | Plantae | Válisti 1 Plöntur | https://www.ni.is/en/flora-funga/red-lists-and-protection | Icelandic | 1996 | ||||||||
| 2462 | Europe | Latvia | LV | LVA | Reptiles | Animalia | Chordata | Reptilia | Latvijas Sarkanā grāmata | https://sarkanagramata.lu.lv/en/ | Latvian | 2024 | ||||||
| 2538 | Europe | Ukraine | Zhytomyr | UA | UKR | Flora | Plantae | ОФІЦІЙНІ ПЕРЕЛІКИ РЕГІОНАЛЬНО РІДКІСНИХ РОСЛИН АДМІНІСТРАТИВНИХ ТЕРИТОРІЙ УКРАЇНИ | https://www.plantarium.ru/page/redbook/id/253.html | Ukrainian | 2012 | |||||||
| 2566 | North America | United States Virgin Islands | VI | VIR | Flora | Plantae | United States Virgin Islands Wildlife Action Plan | https://dpnr.vi.gov/wp-content/uploads/2022/10/VI-WAP-Vol-2-Habitats-Species.pdf | English | 2018 | ||||||||
| 2685 | South America | Argentina | AR | ARG | Mammals | Animalia | Chordata | Mammalia | Libro Rojo de mamíferos amenazados de la Argentina | https://www.sarem.org.ar/libros/ | Spanish | 2000 | ||||||
| 2940 | Asia | Japan | JP | JPN | Fungi | Fungi | レッドリスト2017 | https://ikilog.biodic.go.jp/Rdb/booklist | Japanese | 2017 | ||||||||
| 2992 | Asia | Japan | Okinawa | JP | JPN | Vascular Plants | Plantae | Tracheophyta | 改訂・沖縄県の絶滅のおそれのある野生生物(レッドデータおきなわ)第3版-菌類編・植物編- | https://www.pref.okinawa.jp/kurashikankyo/kankyo/1004621/1004629.html | Japanese | 2018 | ||||||
| 3016 | Asia | Jordan | JO | JOR | Flora | Plantae | Jordan Plant Red List Volume II | https://jo.chm-cbd.net/biodiversity/species-diversity/flora-jordan/jordan-plant-red-list | English | 2017 | ||||||||
| 3115 | Europe | Russia | Kabardin-Balkar | RU | RUS | Fungi | Fungi | Красная книга Кабардино-Балкарской республики, 2018 г. | https://www.researchgate.net/publication/335882268_Red_Data_Book_of_the_Republic_of_Kabardino-Balkaria_in_Russian | Russian | 2018 | |||||||
| 3160 | Europe | Russia | Leningrad | RU | RUS | Flora | Plantae | Красная книга природы Ленинградской области. Т. 2. Растения и грибы. СПб, 2000. | https://www.plantarium.ru/lang/en/page/redbook/id/47.html | Russian | 2000 |
Data audit
Summary
Code
metadata %>%
summarise(`Number of records` = n(),
`Number of sources` = n_distinct(source_name),
`Number of taxa` = n_distinct(taxa),
`Animalia records` = sum(kingdom == 'Animalia'),
`Plantae records` = sum(kingdom == 'Plantae'),
`Fungi records` = sum(kingdom == 'Fungi'),
Countries = n_distinct(gadm_level_0),
`Sub-national territories` = n_distinct(gadm_level_1)) %>%
t() %>% `colnames<-`(c("N")) %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position'))| N | |
|---|---|
| Number of records | 3200 |
| Number of sources | 2082 |
| Number of taxa | 483 |
| Animalia records | 2190 |
| Plantae records | 898 |
| Fungi records | 105 |
| Countries | 170 |
| Sub-national territories | 223 |
Geographic coverage
Code
metadata %>%
separate_rows(continent, sep = '\\|') %>%
mutate(continent = str_squish(continent)) %>%
group_by(continent) %>%
summarise(n_sources = ifelse(n_distinct(source_name, na.rm = TRUE)==0,
0, n_distinct(source_name, na.rm = TRUE))) %>%
arrange(desc(n_sources)) %>%
rename(`Number of sources`=n_sources) %>%
adorn_totals('row') %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position')) | continent | Number of sources |
|---|---|
| Europe | 1430 |
| Asia | 272 |
| Africa | 143 |
| South America | 116 |
| North America | 112 |
| Oceania | 31 |
| Antarctica | 7 |
| Total | 2111 |
Code
metadata %>%
separate_rows(continent, sep = '\\|') %>%
mutate(continent = str_squish(continent)) %>%
group_by(continent) %>%
summarise(n_records = n()) %>%
arrange(desc(n_records)) %>%
rename(`Number of records`=n_records) %>%
adorn_totals('row') %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position')) | continent | Number of records |
|---|---|
| Europe | 2182 |
| Asia | 470 |
| Africa | 205 |
| North America | 156 |
| South America | 150 |
| Oceania | 62 |
| Antarctica | 7 |
| Total | 3232 |
Code
# Europe
metadata %>%
separate_rows(continent, sep = '\\|') %>%
mutate(continent = str_squish(continent)) %>%
filter(continent == 'Europe') %>%
group_by(kingdom) %>%
summarise(n_records = n()) %>%
arrange(desc(n_records)) %>%
rename(`Number of records`=n_records) %>%
adorn_totals('row') %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position')) | kingdom | Number of records |
|---|---|
| Animalia | 1551 |
| Plantae | 549 |
| Fungi | 75 |
| Protozoa | 6 |
| Chromista | 1 |
| Total | 2182 |
Code
metadata %>%
separate_rows(continent, sep = '\\|') %>%
mutate(continent = str_squish(continent)) %>%
filter(continent == 'Asia') %>%
group_by(kingdom) %>%
summarise(n_records = n()) %>%
arrange(desc(n_records)) %>%
rename(`Number of records`=n_records) %>%
adorn_totals('row') %>%
kableExtra::kbl(booktabs = T) %>%
kableExtra::kable_styling(latex_options = c('striped', 'hold_position'))| kingdom | Number of records |
|---|---|
| Animalia | 278 |
| Plantae | 174 |
| Fungi | 18 |
| Total | 470 |
Code
world <- geodata::world(resolution = 3, level = 0, path = 'data/')
world_records <- left_join(st_as_sf(world), metadata %>%
separate_rows(iso_3, sep = '\\|') %>%
select(iso_2, GID_0=iso_3, source_name)) %>%
group_by(GID_0, NAME_0) %>%
summarise(n_sources = ifelse(n_distinct(source_name, na.rm = TRUE)==0,
0, n_distinct(source_name, na.rm = TRUE)),
iso_2_string = ifelse(n_sources>0,
paste(iso_2, collapse = ';'), NA)) %>%
ungroup() %>% st_cast() %>% st_set_crs(4326)
plot_figure_1 <- tm_shape(world_records %>%
select(-iso_2_string) %>%
mutate(n_sources=ifelse(n_sources==0,
NA, n_sources))) +
tm_polygons(fill = 'n_sources',fill_alpha = 0.9,
col='grey40', col_alpha = 0.2,
fill.scale = tm_scale_intervals(n = 6,
#style = 'jenks',
breaks = c(1,5,10,20,100,979),
values = 'brewer.reds',
value.na = 'grey80',
label.na = '0'),
fill.legend = tm_legend(item.space = 0, item.na.space = 0,
title = 'Number of sources',
reverse=T,
# frame=F,
frame.lwd = 0.1,
bg.color = 'white')) +
tm_layout(legend.outside = T,
legend.position = c('left','bottom'), frame=F) +
tm_crs(property='global')
tmap_mode('plot')
plot_figure_1Code
tmap_mode('view')
plot_figure_1